BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / U-Z / ViewIt 2.24 Shareware.sit / ViewIt™ 2.24 Shareware / Pascal Demo Projects / Metrowerks Pascal 1.0d7 Demos / vDemoMP.p < prev next >
MacBinary | 1994-03-02 | 4.6 KB | [TEXT/MWPS]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Mar 2 20:21:21 1994, modified Wed Mar 2 20:21:21 1994, creator 'MWPS', type ASCII, 4135 bytes "vDemoMP.p" , at 0x10a7 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MWPS]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 76 44 65 6d 6f 4d | 50 2e 70 00 00 00 00 00 |..vDemoM|P.p.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 57 50 | 53 00 00 00 00 00 00 00 |.TEXTMWP|S.......|
|00000050| 00 00 00 00 00 10 27 00 | 00 01 7e a9 9a ec 11 a9 |......'.|..~.....|
|00000060| 9a ec 11 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8c 9e 00 00 |........|........|
|00000080| 7b 56 69 65 77 49 74 20 | 32 2e 32 20 44 65 6d 6f |{ViewIt |2.2 Demo|
|00000090| 6e 73 74 72 61 74 69 6f | 6e 20 50 72 6f 67 72 61 |nstratio|n Progra|
|000000a0| 6d 7d 0d 7b a9 46 61 63 | 65 57 61 72 65 20 31 39 |m}.{.Fac|eWare 19|
|000000b0| 39 31 2d 39 34 2e 20 20 | 41 6c 6c 20 52 69 67 68 |91-94.  |All Righ|
|000000c0| 74 73 20 52 65 73 65 72 | 76 65 64 2e 7d 0d 0d 70 |ts Reser|ved.}..p|
|000000d0| 72 6f 67 72 61 6d 20 76 | 44 65 6d 6f 4d 50 3b 0d |rogram v|DemoMP;.|
|000000e0| 0d 09 75 73 65 73 0d 09 | 09 46 61 63 65 53 74 6f |..uses..|.FaceSto|
|000000f0| 72 4d 50 2c 20 46 61 63 | 65 50 72 6f 63 4d 50 3b |rMP, Fac|eProcMP;|
|00000100| 0d 0d 09 76 61 72 0d 09 | 09 68 65 6c 70 53 68 6f |...var..|.helpSho|
|00000110| 77 6e 3a 20 62 6f 6f 6c | 65 61 6e 3b 0d 09 09 6d |wn: bool|ean;...m|
|00000120| 79 52 65 63 3a 20 72 65 | 63 6f 72 64 0d 09 09 09 |yRec: re|cord....|
|00000130| 09 6d 79 49 6e 74 65 67 | 65 72 3a 20 69 6e 74 65 |.myInteg|er: inte|
|00000140| 67 65 72 3b 0d 09 09 09 | 09 6d 79 52 65 61 6c 3a |ger;....|.myReal:|
|00000150| 20 72 65 61 6c 3b 0d 09 | 09 09 09 6d 79 53 74 72 | real;..|...myStr|
|00000160| 69 6e 67 3a 20 73 74 72 | 69 6e 67 5b 39 39 5d 3b |ing: str|ing[99];|
|00000170| 0d 09 09 09 09 6d 79 46 | 6c 61 67 73 3a 20 6c 6f |.....myF|lags: lo|
|00000180| 6e 67 69 6e 74 3b 0d 09 | 09 09 65 6e 64 3b 0d 09 |ngint;..|..end;..|
|00000190| 09 6d 79 4c 69 73 74 3a | 20 69 6e 74 65 67 65 72 |.myList:| integer|
|000001a0| 3b 0d 09 09 6f 6c 64 54 | 69 63 6b 73 2c 20 6e 65 |;...oldT|icks, ne|
|000001b0| 77 54 69 63 6b 73 3a 20 | 6c 6f 6e 67 69 6e 74 3b |wTicks: |longint;|
|000001c0| 0d 09 09 74 68 65 52 65 | 61 6c 2c 20 64 65 6c 74 |...theRe|al, delt|
|000001d0| 61 3a 20 72 65 61 6c 3b | 0d 0d 09 70 72 6f 63 65 |a: real;|...proce|
|000001e0| 64 75 72 65 20 4a 75 6d | 70 49 74 20 28 74 68 65 |dure Jum|pIt (the|
|000001f0| 50 74 72 3a 20 50 74 72 | 29 3b 0d 09 69 6e 6c 69 |Ptr: Ptr|);..inli|
|00000200| 6e 65 0d 09 09 24 32 32 | 35 37 2c 20 24 32 30 35 |ne...$22|57, $205|
|00000210| 31 2c 20 24 34 45 39 30 | 3b 0d 0d 09 70 72 6f 63 |1, $4E90|;...proc|
|00000220| 65 64 75 72 65 20 4f 76 | 65 72 50 72 6f 63 20 28 |edure Ov|erProc (|
|00000230| 74 68 65 50 74 72 3a 20 | 50 74 72 29 3b 0d 09 62 |thePtr: |Ptr);..b|
|00000240| 65 67 69 6e 0d 09 09 77 | 69 74 68 20 66 52 65 63 |egin...w|ith fRec|
|00000250| 20 64 6f 0d 09 09 09 69 | 66 20 28 75 43 6f 6d 6d | do....i|f (uComm|
|00000260| 61 6e 64 20 3d 20 32 36 | 34 29 20 74 68 65 6e 09 |and = 26|4) then.|
|00000270| 09 7b 61 20 6b 65 79 20 | 64 6f 77 6e 20 6d 65 73 |.{a key |down mes|
|00000280| 73 61 67 65 3f 7d 0d 09 | 09 09 09 69 66 20 28 75 |sage?}..|...if (u|
|00000290| 50 61 72 61 6d 5b 31 5d | 20 3d 20 33 32 29 20 74 |Param[1]| = 32) t|
|000002a0| 68 65 6e 09 7b 53 50 41 | 43 45 20 6b 65 79 20 70 |hen.{SPA|CE key p|
|000002b0| 72 65 73 73 65 64 3f 7d | 0d 09 09 09 09 09 75 50 |ressed?}|......uP|
|000002c0| 61 72 61 6d 5b 31 5d 20 | 3a 3d 20 39 35 3b 09 09 |aram[1] |:= 95;..|
|000002d0| 09 7b 63 6f 6e 76 65 72 | 74 20 74 6f 20 55 4e 44 |.{conver|t to UND|
|000002e0| 45 52 4c 49 4e 45 7d 0d | 09 09 4a 75 6d 70 49 74 |ERLINE}.|..JumpIt|
|000002f0| 28 74 68 65 50 74 72 29 | 3b 09 09 09 09 09 09 7b |(thePtr)|;......{|
|00000300| 70 61 73 73 20 6d 65 73 | 73 61 67 65 20 74 6f 20 |pass mes|sage to |
|00000310| 64 72 69 76 65 72 7d 0d | 09 65 6e 64 3b 0d 0d 62 |driver}.|.end;..b|
|00000320| 65 67 69 6e 0d 09 6d 79 | 52 65 63 2e 6d 79 49 6e |egin..my|Rec.myIn|
|00000330| 74 65 67 65 72 20 3a 3d | 20 30 3b 0d 09 6d 79 52 |teger :=| 0;..myR|
|00000340| 65 63 2e 6d 79 52 65 61 | 6c 20 3a 3d 20 36 2e 32 |ec.myRea|l := 6.2|
|00000350| 3b 0d 09 6d 79 52 65 63 | 2e 6d 79 53 74 72 69 6e |;..myRec|.myStrin|
|00000360| 67 20 3a 3d 20 27 48 65 | 6c 6c 6f 27 3b 0d 09 6d |g := 'He|llo';..m|
|00000370| 79 52 65 63 2e 6d 79 46 | 6c 61 67 73 20 3a 3d 20 |yRec.myF|lags := |
|00000380| 31 30 3b 0d 09 6d 79 4c | 69 73 74 20 3a 3d 20 32 |10;..myL|ist := 2|
|00000390| 3b 0d 09 6f 6c 64 54 69 | 63 6b 73 20 3a 3d 20 30 |;..oldTi|cks := 0|
|000003a0| 3b 0d 09 74 68 65 52 65 | 61 6c 20 3a 3d 20 36 2e |;..theRe|al := 6.|
|000003b0| 30 3b 0d 0d 7b 49 6e 69 | 74 69 61 6c 69 7a 65 20 |0;..{Ini|tialize |
|000003c0| 46 61 63 65 49 74 7d 0d | 09 66 52 65 63 2e 75 4e |FaceIt}.|.fRec.uN|
|000003d0| 61 6d 65 20 3a 3d 20 27 | 76 44 65 6d 6f 2e 52 73 |ame := '|vDemo.Rs|
|000003e0| 72 63 27 3b 0d 09 46 61 | 63 65 49 74 28 6e 69 6c |rc';..Fa|ceIt(nil|
|000003f0| 2c 20 44 6f 49 6e 69 74 | 2c 20 30 2c 20 30 2c 20 |, DoInit|, 0, 0, |
|00000400| 30 2c 20 30 29 3b 0d 0d | 7b 4f 70 65 6e 20 4d 6f |0, 0);..|{Open Mo|
|00000410| 64 65 6c 65 73 73 20 57 | 69 6e 64 6f 77 20 75 73 |deless W|indow us|
|00000420| 69 6e 67 20 46 57 4e 44 | 20 31 30 30 30 7d 0d 09 |ing FWND| 1000}..|
|00000430| 46 61 63 65 49 74 28 6e | 69 6c 2c 20 4e 65 77 57 |FaceIt(n|il, NewW|
|00000440| 6e 64 2c 20 31 30 30 30 | 2c 20 31 2c 20 30 2c 20 |nd, 1000|, 1, 0, |
|00000450| 30 29 3b 0d 0d 09 77 69 | 74 68 20 66 52 65 63 20 |0);...wi|th fRec |
|00000460| 64 6f 0d 09 09 72 65 70 | 65 61 74 0d 09 09 09 46 |do...rep|eat....F|
|00000470| 61 63 65 49 74 28 6e 69 | 6c 2c 20 44 6f 4c 6f 6f |aceIt(ni|l, DoLoo|
|00000480| 70 2c 20 30 2c 20 30 2c | 20 30 2c 20 30 29 3b 0d |p, 0, 0,| 0, 0);.|
|00000490| 7b 53 74 61 6e 64 61 72 | 64 20 22 41 62 6f 75 74 |{Standar|d "About|
|000004a0| 22 20 4d 65 6e 75 20 49 | 74 65 6d 20 53 65 6c 65 |" Menu I|tem Sele|
|000004b0| 63 74 69 6f 6e 7d 0d 09 | 09 09 69 66 20 28 75 4d |ction}..|..if (uM|
|000004c0| 65 6e 75 49 44 20 3d 20 | 31 30 31 29 20 61 6e 64 |enuID = |101) and|
|000004d0| 20 28 75 4d 65 6e 75 49 | 74 65 6d 20 3d 20 31 29 | (uMenuI|tem = 1)|
|000004e0| 20 74 68 65 6e 0d 09 09 | 09 09 62 65 67 69 6e 0d | then...|..begin.|
|000004f0| 09 09 09 09 09 75 53 74 | 72 69 6e 67 20 3a 3d 20 |.....uSt|ring := |
|00000500| 63 6f 6e 63 61 74 28 27 | 44 65 6d 6f 6e 73 74 72 |concat('|Demonstr|
|00000510| 61 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 75 73 65 |ation of| the use|
|00000520| 20 6f 66 20 56 69 65 77 | 49 74 27 2c 20 63 68 72 | of View|It', chr|
|00000530| 28 31 33 29 2c 20 27 77 | 69 6e 64 6f 77 73 20 69 |(13), 'w|indows i|
|00000540| 6e 20 61 20 46 61 63 65 | 49 74 2d 62 61 73 65 64 |n a Face|It-based|
|00000550| 20 70 72 6f 67 72 61 6d | 2e 27 29 3b 0d 09 09 09 | program|.');....|
|00000560| 09 09 46 61 63 65 49 74 | 28 6e 69 6c 2c 20 53 68 |..FaceIt|(nil, Sh|
|00000570| 6f 53 74 72 2c 20 33 2c | 20 31 32 2c 20 31 20 2b |oStr, 3,| 12, 1 +|
|00000580| 20 28 34 30 39 20 2a 20 | 36 35 35 33 36 29 2c 20 | (409 * |65536), |
|00000590| 30 29 3b 0d 09 09 09 09 | 65 6e 64 0d 7b 48 69 74 |0);.....|end.{Hit|
|000005a0| 20 69 6e 20 4d 6f 64 65 | 6c 65 73 73 20 57 69 6e | in Mode|less Win|
|000005b0| 64 6f 77 27 73 20 22 4f | 70 65 6e 20 4d 6f 64 61 |dow's "O|pen Moda|
|000005c0| 6c 22 20 42 75 74 74 6f | 6e 7d 0d 09 09 09 65 6c |l" Butto|n}....el|
|000005d0| 73 65 20 69 66 20 28 75 | 4d 65 6e 75 49 44 20 3d |se if (u|MenuID =|
|000005e0| 20 31 30 30 30 29 20 61 | 6e 64 20 28 77 63 48 69 | 1000) a|nd (wcHi|
|000005f0| 74 20 3d 20 32 29 20 74 | 68 65 6e 0d 09 09 09 09 |t = 2) t|hen.....|
|00000600| 62 65 67 69 6e 0d 09 09 | 09 09 09 46 61 63 65 49 |begin...|...FaceI|
|00000610| 74 28 6e 69 6c 2c 20 4e | 65 77 57 6e 64 2c 20 31 |t(nil, N|ewWnd, 1|
|00000620| 30 30 31 2c 20 30 2c 20 | 30 2c 20 30 29 3b 09 09 |001, 0, |0, 0);..|
|00000630| 7b 4f 70 65 6e 20 4d 6f | 64 61 6c 20 57 69 6e 64 |{Open Mo|dal Wind|
|00000640| 6f 77 7d 0d 09 09 09 09 | 09 72 65 70 65 61 74 0d |ow}.....|.repeat.|
|00000650| 09 09 09 09 09 09 46 61 | 63 65 49 74 28 6e 69 6c |......Fa|ceIt(nil|
|00000660| 2c 20 4d 64 6c 57 6e 64 | 2c 20 31 30 30 31 2c 20 |, MdlWnd|, 1001, |
|00000670| 30 2c 20 30 2c 20 30 29 | 3b 09 7b 50 72 6f 63 65 |0, 0, 0)|;.{Proce|
|00000680| 73 73 20 4d 6f 64 61 6c | 20 45 76 65 6e 74 73 7d |ss Modal| Events}|
|00000690| 0d 09 09 09 09 09 09 69 | 66 20 28 77 63 48 69 74 |.......i|f (wcHit|
|000006a0| 20 3d 20 2d 31 29 20 74 | 68 65 6e 09 09 09 09 09 | = -1) t|hen.....|
|000006b0| 09 09 7b 48 69 74 20 69 | 6e 20 43 6c 6f 73 65 20 |..{Hit i|n Close |
|000006c0| 42 6f 78 7d 0d 09 09 09 | 09 09 09 09 6c 65 61 76 |Box}....|....leav|
|000006d0| 65 0d 09 09 09 09 09 09 | 65 6c 73 65 20 69 66 20 |e.......|else if |
|000006e0| 28 77 63 48 69 74 20 3d | 20 31 29 20 74 68 65 6e |(wcHit =| 1) then|
|000006f0| 09 09 09 09 09 09 7b 48 | 69 74 20 69 6e 20 22 4f |......{H|it in "O|
|00000700| 70 65 6e 20 4e 65 73 74 | 65 64 22 20 42 75 74 74 |pen Nest|ed" Butt|
|00000710| 6f 6e 7d 0d 09 09 09 09 | 09 09 09 62 65 67 69 6e |on}.....|...begin|
|00000720| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 7b 4f 70 |........|.....{Op|
|00000730| 65 6e 20 4e 65 73 74 65 | 64 20 4d 6f 64 61 6c 7d |en Neste|d Modal}|
|00000740| 0d 09 09 09 09 09 09 09 | 09 46 61 63 65 49 74 28 |........|.FaceIt(|
|00000750| 6e 69 6c 2c 20 4e 65 77 | 57 6e 64 2c 20 31 30 30 |nil, New|Wnd, 100|
|00000760| 32 2c 20 30 2c 20 31 31 | 30 2c 20 6f 72 64 28 40 |2, 0, 11|0, ord(@|
|00000770| 6d 79 52 65 63 29 29 3b | 0d 09 09 09 09 09 09 09 |myRec));|........|
|00000780| 09 46 61 63 65 49 74 28 | 6e 69 6c 2c 20 47 65 74 |.FaceIt(|nil, Get|
|00000790| 43 74 6c 2c 20 31 30 30 | 32 2c 20 30 2c 20 33 2c |Ctl, 100|2, 0, 3,|
|000007a0| 20 33 29 3b 09 09 09 7b | 4c 69 6e 6b 20 53 63 72 | 3);...{|Link Scr|
|000007b0| 6f 6c 6c 61 62 6c 65 20 | 4c 69 73 74 7d 0d 09 09 |ollable |List}...|
|000007c0| 09 09 09 09 09 09 46 61 | 63 65 49 74 28 6e 69 6c |......Fa|ceIt(nil|
|000007d0| 2c 20 4c 6e 6b 43 74 6c | 2c 20 6f 72 64 28 63 43 |, LnkCtl|, ord(cC|
|000007e0| 6f 6e 74 72 6f 6c 29 2c | 20 6f 72 64 28 40 6d 79 |ontrol),| ord(@my|
|000007f0| 4c 69 73 74 29 2c 20 32 | 2c 20 30 29 3b 0d 09 09 |List), 2|, 0);...|
|00000800| 09 09 09 09 09 09 46 61 | 63 65 49 74 28 6e 69 6c |......Fa|ceIt(nil|
|00000810| 2c 20 47 65 74 43 74 6c | 2c 20 31 30 30 32 2c 20 |, GetCtl|, 1002, |
|00000820| 30 2c 20 32 2c 20 33 29 | 3b 09 09 09 7b 53 65 74 |0, 2, 3)|;...{Set|
|00000830| 20 4f 76 65 72 72 69 64 | 65 20 50 72 6f 63 7d 0d | Overrid|e Proc}.|
|00000840| 09 09 09 09 09 09 09 09 | 46 61 63 65 49 74 28 6e |........|FaceIt(n|
|00000850| 69 6c 2c 20 4f 76 72 43 | 74 6c 2c 20 6f 72 64 28 |il, OvrC|tl, ord(|
|00000860| 63 43 6f 6e 74 72 6f 6c | 29 2c 20 6f 72 64 28 40 |cControl|), ord(@|
|00000870| 4f 76 65 72 50 72 6f 63 | 29 2c 20 30 2c 20 30 29 |OverProc|), 0, 0)|
|00000880| 3b 0d 09 09 09 09 09 09 | 09 09 46 61 63 65 49 74 |;.......|..FaceIt|
|00000890| 28 6e 69 6c 2c 20 53 65 | 74 56 61 6c 2c 20 31 30 |(nil, Se|tVal, 10|
|000008a0| 30 32 2c 20 30 2c 20 30 | 2c 20 30 29 3b 09 09 7b |02, 0, 0|, 0);..{|
|000008b0| 53 65 74 20 4c 69 6e 6b | 65 64 20 56 61 6c 75 65 |Set Link|ed Value|
|000008c0| 73 7d 0d 09 09 09 09 09 | 09 09 09 68 65 6c 70 53 |s}......|...helpS|
|000008d0| 68 6f 77 6e 20 3a 3d 20 | 66 61 6c 73 65 3b 0d 09 |hown := |false;..|
|000008e0| 09 09 09 09 09 09 09 72 | 65 70 65 61 74 0d 09 09 |.......r|epeat...|
|000008f0| 09 09 09 09 09 09 09 46 | 61 63 65 49 74 28 6e 69 |.......F|aceIt(ni|
|00000900| 6c 2c 20 4d 64 6c 57 6e | 64 2c 20 31 30 30 32 2c |l, MdlWn|d, 1002,|
|00000910| 20 2d 32 2c 20 30 2c 20 | 30 29 3b 09 09 7b 50 72 | -2, 0, |0);..{Pr|
|00000920| 6f 63 65 73 73 20 4d 6f | 64 61 6c 20 45 76 65 6e |ocess Mo|dal Even|
|00000930| 74 73 7d 0d 09 09 09 09 | 09 09 09 09 09 69 66 20 |ts}.....|.....if |
|00000940| 28 75 4d 65 6e 75 49 44 | 20 3d 20 30 29 20 74 68 |(uMenuID| = 0) th|
|00000950| 65 6e 09 09 09 09 09 09 | 09 09 7b 4e 6f 20 4d 65 |en......|..{No Me|
|00000960| 73 73 61 67 65 7d 0d 09 | 09 09 09 09 09 09 09 09 |ssage}..|........|
|00000970| 09 62 65 67 69 6e 0d 09 | 09 09 09 09 09 09 09 09 |.begin..|........|
|00000980| 09 09 6e 65 77 54 69 63 | 6b 73 20 3a 3d 20 54 69 |..newTic|ks := Ti|
|00000990| 63 6b 43 6f 75 6e 74 3b | 0d 09 09 09 09 09 09 09 |ckCount;|........|
|000009a0| 09 09 09 09 69 66 20 28 | 6e 65 77 54 69 63 6b 73 |....if (|newTicks|
|000009b0| 20 3e 20 6f 6c 64 54 69 | 63 6b 73 20 2b 20 36 30 | > oldTi|cks + 60|
|000009c0| 29 20 74 68 65 6e 0d 09 | 09 09 09 09 09 09 09 09 |) then..|........|
|000009d0| 09 09 09 62 65 67 69 6e | 0d 09 09 09 09 09 09 09 |...begin|........|
|000009e0| 09 09 09 09 09 09 6f 6c | 64 54 69 63 6b 73 20 3a |......ol|dTicks :|
|000009f0| 3d 20 6e 65 77 54 69 63 | 6b 73 3b 0d 09 09 09 09 |= newTic|ks;.....|
|00000a00| 09 09 09 09 09 09 09 09 | 09 46 61 63 65 49 74 28 |........|.FaceIt(|
|00000a10| 6e 69 6c 2c 20 47 65 74 | 43 74 6c 2c 20 31 30 30 |nil, Get|Ctl, 100|
|00000a20| 32 2c 20 30 2c 20 32 2c | 20 38 29 3b 0d 09 09 09 |2, 0, 2,| 8);....|
|00000a30| 09 09 09 09 09 09 09 09 | 09 09 53 65 74 43 74 6c |........|..SetCtl|
|00000a40| 56 61 6c 75 65 28 63 43 | 6f 6e 74 72 6f 6c 2c 20 |Value(cC|ontrol, |
|00000a50| 28 63 56 61 6c 75 65 20 | 6d 6f 64 20 34 29 20 2b |(cValue |mod 4) +|
|00000a60| 20 31 29 3b 0d 09 09 09 | 09 09 09 09 09 09 09 09 | 1);....|........|
|00000a70| 09 65 6e 64 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |.end;...|........|
|00000a80| 65 6e 64 0d 09 09 09 09 | 09 09 09 09 09 65 6c 73 |end.....|.....els|
|00000a90| 65 20 69 66 20 28 77 76 | 48 69 74 20 3d 20 31 29 |e if (wv|Hit = 1)|
|00000aa0| 20 74 68 65 6e 09 09 09 | 09 09 09 09 7b 48 69 74 | then...|....{Hit|
|00000ab0| 20 69 6e 20 56 69 65 77 | 20 23 31 7d 0d 09 09 09 | in View| #1}....|
|00000ac0| 09 09 09 09 09 09 09 62 | 65 67 69 6e 0d 09 09 09 |.......b|egin....|
|00000ad0| 09 09 09 09 09 09 09 09 | 69 66 20 28 77 63 48 69 |........|if (wcHi|
|00000ae0| 74 20 3d 20 31 29 20 74 | 68 65 6e 09 09 09 09 09 |t = 1) t|hen.....|
|00000af0| 09 7b 48 69 74 20 69 6e | 20 22 4f 4b 22 20 42 75 |.{Hit in| "OK" Bu|
|00000b00| 74 74 6f 6e 7d 0d 09 09 | 09 09 09 09 09 09 09 09 |tton}...|........|
|00000b10| 09 09 6c 65 61 76 65 0d | 09 09 09 09 09 09 09 09 |..leave.|........|
|00000b20| 09 09 09 65 6c 73 65 20 | 69 66 20 28 77 63 48 69 |...else |if (wcHi|
|00000b30| 74 20 3d 20 32 29 20 74 | 68 65 6e 09 09 09 09 09 |t = 2) t|hen.....|
|00000b40| 7b 48 69 74 20 69 6e 20 | 22 53 68 6f 77 2f 48 69 |{Hit in |"Show/Hi|
|00000b50| 64 65 22 20 42 75 74 74 | 6f 6e 7d 0d 09 09 09 09 |de" Butt|on}.....|
|00000b60| 09 09 09 09 09 09 09 09 | 69 66 20 68 65 6c 70 53 |........|if helpS|
|00000b70| 68 6f 77 6e 20 74 68 65 | 6e 0d 09 09 09 09 09 09 |hown the|n.......|
|00000b80| 09 09 09 09 09 09 09 62 | 65 67 69 6e 0d 09 09 09 |.......b|egin....|
|00000b90| 09 09 09 09 09 09 09 09 | 09 09 09 46 61 63 65 49 |........|...FaceI|
|00000ba0| 74 28 6e 69 6c 2c 20 53 | 68 6f 43 74 6c 2c 20 30 |t(nil, S|hoCtl, 0|
|00000bb0| 2c 20 30 2c 20 2d 33 2c | 20 32 29 3b 09 09 7b 48 |, 0, -3,| 2);..{H|
|00000bc0| 69 64 65 20 76 33 2c 20 | 53 68 6f 77 20 76 32 7d |ide v3, |Show v2}|
|00000bd0| 0d 09 09 09 09 09 09 09 | 09 09 09 09 09 09 09 68 |........|.......h|
|00000be0| 65 6c 70 53 68 6f 77 6e | 20 3a 3d 20 66 61 6c 73 |elpShown| := fals|
|00000bf0| 65 3b 0d 09 09 09 09 09 | 09 09 09 09 09 09 09 09 |e;......|........|
|00000c00| 65 6e 64 0d 09 09 09 09 | 09 09 09 09 09 09 09 09 |end.....|........|
|00000c10| 65 6c 73 65 0d 09 09 09 | 09 09 09 09 09 09 09 09 |else....|........|
|00000c20| 09 09 62 65 67 69 6e 0d | 09 09 09 09 09 09 09 09 |..begin.|........|
|00000c30| 09 09 09 09 09 09 46 61 | 63 65 49 74 28 6e 69 6c |......Fa|ceIt(nil|
|00000c40| 2c 20 53 68 6f 43 74 6c | 2c 20 30 2c 20 30 2c 20 |, ShoCtl|, 0, 0, |
|00000c50| 2d 32 2c 20 33 29 3b 09 | 09 7b 48 69 64 65 20 76 |-2, 3);.|.{Hide v|
|00000c60| 32 2c 20 53 68 6f 77 20 | 76 33 7d 0d 09 09 09 09 |2, Show |v3}.....|
|00000c70| 09 09 09 09 09 09 09 09 | 09 09 68 65 6c 70 53 68 |........|..helpSh|
|00000c80| 6f 77 6e 20 3a 3d 20 74 | 72 75 65 3b 0d 09 09 09 |own := t|rue;....|
|00000c90| 09 09 09 09 09 09 09 09 | 09 09 65 6e 64 3b 0d 09 |........|..end;..|
|00000ca0| 09 09 09 09 09 09 09 09 | 09 65 6e 64 0d 09 09 09 |........|.end....|
|00000cb0| 09 09 09 09 09 09 65 6c | 73 65 20 69 66 20 28 77 |......el|se if (w|
|00000cc0| 76 48 69 74 20 3d 20 32 | 29 20 74 68 65 6e 09 09 |vHit = 2|) then..|
|00000cd0| 09 09 09 09 09 7b 48 69 | 74 20 69 6e 20 56 69 65 |.....{Hi|t in Vie|
|00000ce0| 77 20 23 32 7d 0d 09 09 | 09 09 09 09 09 09 09 09 |w #2}...|........|
|00000cf0| 69 66 20 28 77 63 48 69 | 74 20 3d 20 36 29 20 6f |if (wcHi|t = 6) o|
|00000d00| 72 20 28 77 63 48 69 74 | 20 3d 20 37 29 20 74 68 |r (wcHit| = 7) th|
|00000d10| 65 6e 09 09 7b 48 69 74 | 20 69 6e 20 55 70 2f 44 |en..{Hit| in Up/D|
|00000d20| 6f 77 6e 20 41 72 72 6f | 77 7d 0d 09 09 09 09 09 |own Arro|w}......|
|00000d30| 09 09 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |......be|gin.....|
|00000d40| 09 09 09 09 09 09 09 09 | 46 61 63 65 49 74 28 6e |........|FaceIt(n|
|00000d50| 69 6c 2c 20 47 65 74 43 | 74 6c 2c 20 31 30 30 32 |il, GetC|tl, 1002|
|00000d60| 2c 20 30 2c 20 32 2c 20 | 77 63 48 69 74 29 3b 0d |, 0, 2, |wcHit);.|
|00000d70| 09 09 09 09 09 09 09 09 | 09 09 09 09 64 65 6c 74 |........|....delt|
|00000d80| 61 20 3a 3d 20 30 2e 30 | 30 31 20 2a 20 28 63 4d |a := 0.0|01 * (cM|
|00000d90| 69 6e 20 2d 20 32 29 3b | 0d 09 09 09 09 09 09 09 |in - 2);|........|
|00000da0| 09 09 09 09 09 6d 79 52 | 65 63 2e 6d 79 52 65 61 |.....myR|ec.myRea|
|00000db0| 6c 20 3a 3d 20 6d 79 52 | 65 63 2e 6d 79 52 65 61 |l := myR|ec.myRea|
|00000dc0| 6c 20 2b 20 64 65 6c 74 | 61 3b 0d 09 09 09 09 09 |l + delt|a;......|
|00000dd0| 09 09 09 09 09 09 09 46 | 61 63 65 49 74 28 6e 69 |.......F|aceIt(ni|
|00000de0| 6c 2c 20 53 65 74 56 61 | 6c 2c 20 31 30 30 32 2c |l, SetVa|l, 1002,|
|00000df0| 20 30 2c 20 32 2c 20 32 | 29 3b 0d 09 09 09 09 09 | 0, 2, 2|);......|
|00000e00| 09 09 09 09 09 09 09 44 | 65 6c 61 79 28 35 2c 20 |.......D|elay(5, |
|00000e10| 75 49 34 29 3b 0d 09 09 | 09 09 09 09 09 09 09 09 |uI4);...|........|
|00000e20| 09 65 6e 64 3b 0d 09 09 | 09 09 09 09 09 09 75 6e |.end;...|......un|
|00000e30| 74 69 6c 20 66 61 6c 73 | 65 3b 0d 09 09 09 09 09 |til fals|e;......|
|00000e40| 09 09 09 46 61 63 65 49 | 74 28 6e 69 6c 2c 20 47 |...FaceI|t(nil, G|
|00000e50| 65 74 56 61 6c 2c 20 31 | 30 30 32 2c 20 30 2c 20 |etVal, 1|002, 0, |
|00000e60| 30 2c 20 30 29 3b 09 7b | 47 65 74 20 4c 69 6e 6b |0, 0);.{|Get Link|
|00000e70| 65 64 20 56 61 6c 75 65 | 73 7d 0d 09 09 09 09 09 |ed Value|s}......|
|00000e80| 09 09 09 46 61 63 65 49 | 74 28 6e 69 6c 2c 20 45 |...FaceI|t(nil, E|
|00000e90| 6e 64 57 6e 64 2c 20 31 | 30 30 32 2c 20 30 2c 20 |ndWnd, 1|002, 0, |
|00000ea0| 30 2c 20 30 29 3b 09 7b | 43 6c 6f 73 65 20 4e 65 |0, 0);.{|Close Ne|
|00000eb0| 73 74 65 64 20 4d 6f 64 | 61 6c 7d 0d 09 09 09 09 |sted Mod|al}.....|
|00000ec0| 09 09 09 65 6e 64 3b 0d | 09 09 09 09 09 75 6e 74 |...end;.|.....unt|
|00000ed0| 69 6c 20 66 61 6c 73 65 | 3b 0d 09 09 09 09 09 46 |il false|;......F|
|00000ee0| 61 63 65 49 74 28 6e 69 | 6c 2c 20 45 6e 64 57 6e |aceIt(ni|l, EndWn|
|00000ef0| 64 2c 20 31 30 30 31 2c | 20 30 2c 20 30 2c 20 30 |d, 1001,| 0, 0, 0|
|00000f00| 29 3b 09 09 7b 43 6c 6f | 73 65 20 4d 6f 64 61 6c |);..{Clo|se Modal|
|00000f10| 20 57 69 6e 64 6f 77 7d | 0d 09 09 09 09 65 6e 64 | Window}|.....end|
|00000f20| 0d 7b 48 69 74 20 69 6e | 20 4d 6f 64 65 6c 65 73 |.{Hit in| Modeles|
|00000f30| 73 20 57 69 6e 64 6f 77 | 27 73 20 22 57 68 79 20 |s Window|'s "Why |
|00000f40| 56 69 65 77 49 74 3f 22 | 20 42 75 74 74 6f 6e 7d |ViewIt?"| Button}|
|00000f50| 0d 09 09 09 65 6c 73 65 | 20 69 66 20 28 75 4d 65 |....else| if (uMe|
|00000f60| 6e 75 49 44 20 3d 20 31 | 30 30 30 29 20 61 6e 64 |nuID = 1|000) and|
|00000f70| 20 28 77 63 48 69 74 20 | 3d 20 33 29 20 74 68 65 | (wcHit |= 3) the|
|00000f80| 6e 0d 09 09 09 09 62 65 | 67 69 6e 0d 09 09 09 09 |n.....be|gin.....|
|00000f90| 09 46 61 63 65 49 74 28 | 6e 69 6c 2c 20 4e 65 77 |.FaceIt(|nil, New|
|00000fa0| 57 6e 64 2c 20 31 30 30 | 33 2c 20 30 2c 20 30 2c |Wnd, 100|3, 0, 0,|
|00000fb0| 20 6f 72 64 28 40 74 68 | 65 52 65 61 6c 29 29 3b | ord(@th|eReal));|
|00000fc0| 0d 09 09 09 09 09 46 61 | 63 65 49 74 28 6e 69 6c |......Fa|ceIt(nil|
|00000fd0| 2c 20 53 65 74 56 61 6c | 2c 20 31 30 30 33 2c 20 |, SetVal|, 1003, |
|00000fe0| 30 2c 20 30 2c 20 30 29 | 3b 0d 09 09 09 09 09 72 |0, 0, 0)|;......r|
|00000ff0| 65 70 65 61 74 0d 09 09 | 09 09 09 09 46 61 63 65 |epeat...|....Face|
|00001000| 49 74 28 6e 69 6c 2c 20 | 4d 64 6c 57 6e 64 2c 20 |It(nil, |MdlWnd, |
|00001010| 31 30 30 33 2c 20 30 2c | 20 30 2c 20 30 29 3b 0d |1003, 0,| 0, 0);.|
|00001020| 09 09 09 09 09 75 6e 74 | 69 6c 20 28 77 63 48 69 |.....unt|il (wcHi|
|00001030| 74 20 3d 20 31 29 3b 0d | 09 09 09 09 09 46 61 63 |t = 1);.|.....Fac|
|00001040| 65 49 74 28 6e 69 6c 2c | 20 47 65 74 56 61 6c 2c |eIt(nil,| GetVal,|
|00001050| 20 31 30 30 33 2c 20 30 | 2c 20 30 2c 20 30 29 3b | 1003, 0|, 0, 0);|
|00001060| 0d 09 09 09 09 09 46 61 | 63 65 49 74 28 6e 69 6c |......Fa|ceIt(nil|
|00001070| 2c 20 45 6e 64 57 6e 64 | 2c 20 31 30 30 33 2c 20 |, EndWnd|, 1003, |
|00001080| 30 2c 20 30 2c 20 30 29 | 3b 0d 09 09 09 09 65 6e |0, 0, 0)|;.....en|
|00001090| 64 3b 0d 09 09 75 6e 74 | 69 6c 20 66 61 6c 73 65 |d;...unt|il false|
|000010a0| 3b 0d 0d 65 6e 64 2e 00 | 00 00 00 00 00 00 00 00 |;..end..|........|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001100| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001110| 00 00 00 01 04 34 30 4d | 42 33 01 00 00 00 00 1f |.....40M|B3......|
|00001120| 00 00 00 02 9e 59 79 ba | a9 9a 3c dd 00 00 00 00 |.....Yy.|..<.....|
|00001130| 09 76 44 65 6d 6f 4d 50 | 2e 70 02 00 00 00 50 61 |.vDemoMP|.p....Pa|
|00001140| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 02 |rtSITx..|........|
|00001150| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 aa 02 9a 69 00 00 | 00 00 00 00 01 7e 00 00 |.....i..|.....~..|
|00001180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001190| 00 00 00 00 00 00 11 00 | 00 00 00 02 0b 31 39 39 |........|.....199|
|000011a0| 31 20 53 6f 75 72 63 65 | 01 00 00 00 00 07 00 01 |1 Source|........|
|000011b0| 1f 1b a3 b0 ec be a7 b6 | 43 6a 00 00 00 00 00 9c |........|Cj......|
|000011c0| 00 fe 01 97 02 0e 01 00 | 01 68 00 c0 01 00 ff f8 |........|.h......|
|000011d0| ff dd 00 00 00 00 00 00 | 00 00 00 00 22 7e 00 00 |........|...."~..|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 7e ea 00 01 |........|....~...|
|00001200| 00 00 00 48 00 09 47 65 | 6e 65 76 61 00 00 00 00 |...H..Ge|neva....|
|00001210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001220| 00 00 00 00 00 00 00 03 | 00 02 00 28 00 0a 01 2b |........|...(...+|
|00001230| 01 88 00 28 00 0a 01 2b | 01 88 a9 ce e4 25 00 00 |...(...+|.....%..|
|00001240| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00001250| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 cd fc ec |...L...L|...2....|
|00001260| 0c 7e 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.~.....2|..MPSR..|
|00001270| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+